﻿Public Class CTInstrumentosValmerBatch


 Private _tipoInstProc    As TipoDeInstrumentoAProcesar 
 Private _grupo           As String  
 private _tipo            as integer
 private _numInstrumento  As Integer 
 private _descInstrumento As String 

 Private _esEditableNuevo As Boolean 




Public Enum TipoDeInstrumentoAProcesar   
   Dinamico = 1
End Enum



Public sub new()
    _tipoInstProc = TipoDeInstrumentoAProcesar.Dinamico  
    _grupo  = ""
    _tipo   = -1 
    _numInstrumento = -1
    _descInstrumento = ""

    _esEditableNuevo = False 
End Sub


Public sub new(ByVal grupo As String,ByVal editarNuevo As Boolean )
    _tipoInstProc = TipoDeInstrumentoAProcesar.Dinamico  
    _grupo  = grupo 
    _tipo   = -1 
    _numInstrumento = -1
    _descInstrumento = ""
    _esEditableNuevo = editarNuevo
End Sub


Public sub new(ByVal editarNuevo As Boolean )
    _tipoInstProc = TipoDeInstrumentoAProcesar.Dinamico  
    _grupo  = "" 
    _tipo   = -1 
    _numInstrumento = -1
    _descInstrumento = ""
    _esEditableNuevo = editarNuevo
End Sub





Public sub new(ByRef instrumento As CTInstrumentosValmerBatch)
        
    _tipoInstProc = instrumento.TipoInstrumentoAProcesar   
    _grupo  = instrumento.Grupo 
    _tipo   = instrumento.Tipo  
    _numInstrumento = instrumento.NumInstrumento  
    _descInstrumento = instrumento.DescInstrumento 

    _esEditableNuevo = instrumento.EsEditableNuevo 

End Sub



Public sub new(ByVal tipoInstProc As TipoDeInstrumentoAProcesar,   ByVal grupo As String, ByVal tipo As Integer, ByVal numInstrumento As Integer, ByRef descInstrumento As String )
        
    _tipoInstProc = tipoInstProc
    _grupo  = grupo 
    _tipo   = tipo         
    _numInstrumento = numInstrumento 
    _descInstrumento = descInstrumento 

    _esEditableNuevo = False 

End Sub



Public  Property EsEditableNuevo() As Boolean 
    Get
        Return _esEditableNuevo
    End Get    
    Set(ByVal value As Boolean )
            _esEditableNuevo = value
    End Set

End Property




    
    Public Property TipoInstrumentoAProcesar() As TipoDeInstrumentoAProcesar 
        Get
            Return _tipoInstProc
        End Get
        Set(ByVal value As TipoDeInstrumentoAProcesar)
            _tipoInstProc = value
        End Set
    End Property




    Public Property Grupo() As String 
        Get
            Return _grupo 
        End Get
        Set(ByVal value As String)
            _grupo  = value
        End Set
    End Property


  
    Public Property Tipo() As Integer
        Get
            Return _tipo 
        End Get
        Set(ByVal value As Integer )
            _tipo  = value
        End Set
    End Property
    

    Public Property NumInstrumento() As Integer
        Get
            Return _numInstrumento
        End Get
        Set(ByVal value As Integer )
            _numInstrumento  = value
        End Set
    End Property
  


     Public Property DescInstrumento() As String 
        Get
            Return _descInstrumento 
        End Get
        Set(ByVal value As String)
            _descInstrumento  = value
        End Set
    End Property


    Public Overrides Function ToString() As String
        Return Me._descInstrumento 
    End Function


End Class
